﻿Imports System.Windows.Forms
Public Class FrmThucDon
    Private Sub ThoátToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem.Click
        Me.Close()
    End Sub


    Private Sub btnDN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDN.Click
        If (txtDN.Text = "admin" And txtPass.Text = "admin") Then
            MessageBox.Show("Đăng nhập thành công!")
            MenuStrip1.Visible = True
            Panel1.Visible = False
        Else
            MessageBox.Show("Sai tên đăng nhập hoặc mật khẩu!")
        End If


    End Sub

    Private Sub DanhSáchPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSáchPhòngToolStripMenuItem.Click
        Dim frm As New FrmDanhMucPhong
        frm.ShowDialog()
    End Sub

    Private Sub PhiếuThuêPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiếuThuêPhòngToolStripMenuItem.Click
        Dim frm As New frmPhieuThue
        frm.ShowDialog()
    End Sub

    Private Sub DanhSáchPhiếuThuêPhòngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSáchPhiếuThuêPhòngToolStripMenuItem.Click
        Dim frm As New frmXemPhieuThue
        frm.ShowDialog()
    End Sub

    Private Sub HóaĐơnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HóaĐơnToolStripMenuItem.Click
        Dim frm As New frmHoaDon
        frm.ShowDialog()
    End Sub

    Private Sub FrmThucDon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label4.Text = DateTime.Now
    End Sub

    Private Sub XemBảngQuiĐịnhKháchSạnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XemBảngQuiĐịnhKháchSạnToolStripMenuItem.Click
        Dim frm As New frmQuiDinh
        frm.ShowDialog()
    End Sub

    Private Sub LậpThốngKêDoanhThuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LậpThốngKêDoanhThuToolStripMenuItem.Click
        Dim frm As New frmInHoaDon
        frm.ShowDialog()
    End Sub

    Private Sub HướngDẫnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HướngDẫnToolStripMenuItem.Click
        Dim p As New Process()
        Dim psi As New ProcessStartInfo("..\help.chm")
        psi.Verb = "open"
        p.StartInfo = psi
        p.Start()
        'Me.helpProvider1 = New System.Windows.Forms.HelpProvider()
        'Me.helpProvider1.HelpNamespace = Application.StartupPath & "..\help.chm"
    End Sub

    Private Sub ThôngTinPhầnMềmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinPhầnMềmToolStripMenuItem.Click
        Dim frm As New frmThongTinPM()
        frm.ShowDialog()
    End Sub

    Private Sub BackupDữLiệuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupDữLiệuToolStripMenuItem.Click
        Dim frm As New frmBUpandRestore()
        frm.Show()
    End Sub

    Private Sub XuấtRaFileExcelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XuấtRaFileExcelToolStripMenuItem.Click
        Dim frm As New frmExportExcel()
        frm.ShowDialog()
    End Sub
End Class
